﻿Public Class ucNotificationKeys
	Private Sub chk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAlt.CheckedChanged, chkShift.CheckedChanged, chkScroll.CheckedChanged, chkNum.CheckedChanged, chkCtrl.CheckedChanged, chkCaps.CheckedChanged
		If sender Is Nothing Then Exit Sub
		Dim chk As CheckBox = DirectCast(sender, CheckBox)
		If chk Is Nothing Then Exit Sub
		If chk.Checked Then
			chk.BackgroundImage = My.Resources.img_key_hot
			chk.ForeColor = Color.Red
		Else
			chk.BackgroundImage = My.Resources.img_key
			chk.ForeColor = SystemColors.ActiveCaption
		End If
	End Sub
End Class
